home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
compuserve-file-archive
/
08 System Utilities
/
CK1541.BIN
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
3KB
|
109 lines
1000 REM VERSION 3.0 PERFORMANCE TEST
1010 REM FOR C-64 SINGLE 1541 DISK DRIVE
1020 REM REVISED NOV.1989 TED BERNHARDI
1030 POKE 53280,0:POKE 53281,0:REM
1040 REM
1050 OPEN 1,8,15:OPEN 15,8,15:REM
1051 REM (null)
1052 REM (null)
1060 LT=35
1070 LT$=STR$(LT)
1080 NT=30
1090 PRINT"[147][159][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
1100 PRINT" 1541 DRIVE PERFORMANCE TEST"
1101 REM (null)
1102 REM (null)
1110 PRINT"[159][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
1130 PRINT" INSERT SCRATCH DISK IN DRIVE"
1140 PRINT" (ANY EXISTING FILES WILL BE ERASED)"
1170 PRINT"[158] PRESS RETURN [146] WHEN READY"
1200 FOR I=0 TO 50:GET A$:NEXT
1201 REM (null)
1202 REM (null)
1210 GET A$:IF A$<>CHR$(13) THEN 1210
1240 TI$="000000"
1250 TT=18
1260 PRINT#1,"N0:TEST DISK,00"
1270 C1$="[147] FORMATING DISK [146]"+CHR$(13)
1280 C2$="[159] PLEASE WAIT ABOUT 80 SECONDS"
1290 CC$=C1$+C2$:GOSUB 1840
1300 IF TI<NTTHEN1370
1301 REM (null)
1302 REM (null)
1310 PRINT"SYSTEM IS NOT RESPONDING
1320 [153]" CORRECTLY TO COMMANDS"
1340 [141] 1880
1370 [153]"SYSDRIVE PASSED MECHANICAL TEST!"
1390 TT[178]21
1400 [159] 2,8,2,"0:TEST FILE,S,W"
1401 [143] [204]
1402 [143] [204]
1410 CC$[178]" OPEN WRITE FILE" :[141] 1840
1420 CH[178]2:CC$[178]" WRITE DATA" :[141] 1930
1430 CC$[178]" CLOSE WRITE FILE" :[141] 1840
1440 [159] 2,8,2,"0:TEST FILE,S,R"
1450 CC$[178]" OPEN READ FILE" :[141] 1840
1460 CH[178]2:[141] 1990
1470 [152]1,"S0:TEST FILE"
1480 CC$[178]" SCRATCH FILE ":TT[178]1 :[141] 1840
1500 [143] [204]
1501 [143] [204]
1502 [143] [204]
1510 TT[178]21
1520 [159] 4,8,4,"#"
1530 NN%[178](1[170][187](TI)[172]254[170]NN%)[175]255:[152]1,"B-P";4;NN%
1540 NN$[178]"":[129] I[178]1 [164] 255:NN$[178]NN$[170][199](I):[130]
1550 [152] 4,NN$;
1560 [152] 1,"U2:";4;0;LT;0
1570 CC$[178]" WRITE TRACK"[170]LT$:[141] 1840
1580 [152]1,"U2:";4;0;1;0
1590 CC$[178]" WRITE TRACK 1" :[141] 1840
1600 [152]1,"U1:";4;0;LT;0
1601 [143] [204]
1602 [143] [204]
1610 CC$[178]" READ TRACK"[170]LT$ :[141] 1840
1620 [152]1,"U1:";4;0;1;0
1630 CC$[178]" READ TRACK 1" :[141] 1840
1640 [160] 4
1670 [153]"SYS
21577 HAS PASSED";
1680 [153]" PERFORMANCE TEST!"
1690 [153]" REMOVE DISK BEFORE";
1700 [153]" TURNING POWER OFF."
1701 [143] [204]
1702 [143] [204]
1720 [128]
1750 [153]"SYS CONTINUE (Y/N)?";
1760 [129] I[178]0 [164] 50:[161] A$:[130]
1770 [161] A$:[139] A$[178]"" [167] 1770
1780 [153] A$""
1790 [139] A$[178]"N" [167] [128]
1800 [139] A$[178]"Y" [167] [142]
1801 [143] [204]
1802 [143] [204]
1810 [137] 1760
1820 :
1840 [153] CC$
1850 [132] 1,EN,EM$,ET,ES
1860 [153][163]12)""EN;EM$;ET;ES;""
1870 [139] EN[179]2 [167] [142]
1880 [153]" UNIT IS FAILING";
1890 [153]" PERFORMANCE TEST"
1900 TM$[178]TI$:[141] 1750:TI$[178]TM$:[142]
1901 [143] [204]
1902 [143] [204]
1930 [153]" WRITING DATA"
1940 [129] I[178]1000 [164] 2000:[152]CH,I:[130]
1950 [141]
36096 [168][160] CH:[142]
1990 [153]" READING DATA"
2000 [161]A$
2001 [143] [204]
2002 [143] [204]
2010 [129] I[178]1000 [164] 2000
2020 [132] CH,J
2030 [139] J[179][177]I [167] [153]" READ ERROR:WAIT":[141] 1850
2040 [130]
2050 [141] 1850
2060 [160] CH:[142]